home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / codesmit.zip / SAMPLE.CS1 (.txt) < prev    next >
dBase/FoxBase/XBase Database File  |  1992-01-06  |  33KB  |  26 rows

#TOP,N,2,0LEFT,N,3,0BOTTOM,N,2,0RIGHT,N,3,0SCREEN,C,160FNAME,C,250FTYPE,C,3FLEN,N,5,0FDEC,N,3,0TYPE,C,1COLOR,C,10PICTURE,C,80SAYTCOLOR,C,80SAYFCOLOR,C,80GETCOLOR,C,80WHEN,C,80VALID,C,80FLDNUMBER,N,4,0BOXTYPE,N,1,0UDCINSERT,C,250FIELDDESC,C,80DBFNAME,C,8PAGENUMBER,N,2,0CSPROCNAME,C,15CSPROCDATA,C,15
1242075                                                                                 NIL720Bbg+/B 'GR+/B'    03   1  
2229250??????????????????????> Sample Application <NIL220Tbg+/B 'gr+/b'    00   1  
3410413    NameNIL40Tbg+/B colornorm    00   1  
4419448                              NAMEC300FW+/R  colorrevcolornorm  100 Name 1  
5453469                 HPHONEC170FW+/R999 999-9999XXXXX colorrevcolornorm!empty(m->Name) 200 Home Phone 1  
6610616       CompanyNIL70Tbg+/B colornorm    00   1  
7619648                              COMPANYC300FW+/R  colorrevcolornorm  300 Company Name 1  
8653669                 CPHONEC170FW+/R999 999-9999XXXXX colorrevcolornorm!empty(m->Company) 400 Company Phone 1  
9810816       AddressNIL70Tbg+/B colornorm    00   1  
10819848                              ADDRESSC300FW+/R  colorrevcolornorm  500 Address 1  
11853864            Bad Address?NIL120Tbg+/B colornorm    00   1  
12866866 BADADDRL10FW+/RY if(afile->badaddr, 'r+*/b', colorrev)   600 Bad Address? 1  
1310101013    CityNIL40Tbg+/B colornorm    00   1  
1410191033               CITYC150FW+/R  colorrevcolornorm  700 City 1  
1510361040     StateNIL50Tbg+/B colornorm    00   1  
1610431044  STATEC20FW+/R@! colorrevcolornorm state(@state)800 State 1  
1710481050   ZipNIL30Tbg+/B colornorm    00   1  
1810531062          ZIPC100FW+/R99999-9999 colorrevcolornorm  900 Zip Code 1  
1912101217        Due DateNIL80Tbg+/B colornorm    00   1  
2012191226        SDATED80FW+/R@d colorrevcolornorm  1000 Due Date 1  
2112291229 @ 12,29 say if(!empty(sdate) .and. sdate <> date(), if(sdate > date(),'is in '+ltrim(str(sdate-date()))+' days      ', ltrim(str(date()-sdate))+' days ago     '), space(18))NIL10Uw+/g      1100show  1  
2212531258      AmountNIL60Tbg+/B colornorm    00   1  
2312611268        AMTN82FW+/R99999.99 colorrevcolornorm  1100 Money 1  
2414101419          MYNOTESM100FW+/R      1500 My Notes 1  
2514211421 memoedit(mynotes,14,19,19,74,.f.,.f.)NIL10Uw+/g      2000show  1